home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / detect2r / mhdock_m.frm next >
Text File  |  1999-09-01  |  3KB  |  83 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm mdiMHDock 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "MHDock UserControl "
  5.    ClientHeight    =   5145
  6.    ClientLeft      =   825
  7.    ClientTop       =   1455
  8.    ClientWidth     =   6870
  9.    LinkTopic       =   "MDIForm1"
  10.    Begin prjMHDock.MHDock MHDock1 
  11.       Left            =   3060
  12.       Top             =   2040
  13.       _ExtentX        =   847
  14.       _ExtentY        =   820
  15.    End
  16.    Begin VB.PictureBox Picture1 
  17.       Align           =   1  'Align Top
  18.       Height          =   675
  19.       Left            =   0
  20.       ScaleHeight     =   615
  21.       ScaleWidth      =   6810
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   6870
  25.       Begin VB.Label Label1 
  26.          Alignment       =   1  'Right Justify
  27.          Caption         =   "Horizontal Snap:"
  28.          Height          =   255
  29.          Index           =   0
  30.          Left            =   540
  31.          TabIndex        =   4
  32.          Top             =   60
  33.          Width           =   1215
  34.       End
  35.       Begin VB.Label Label1 
  36.          Alignment       =   1  'Right Justify
  37.          Caption         =   "Vertical Snap:"
  38.          Height          =   255
  39.          Index           =   1
  40.          Left            =   540
  41.          TabIndex        =   3
  42.          Top             =   360
  43.          Width           =   1215
  44.       End
  45.       Begin VB.Label lblxDock 
  46.          Height          =   195
  47.          Left            =   1860
  48.          TabIndex        =   2
  49.          Top             =   60
  50.          Width           =   2235
  51.       End
  52.       Begin VB.Label lblyDock 
  53.          Height          =   195
  54.          Left            =   1860
  55.          TabIndex        =   1
  56.          Top             =   360
  57.          Width           =   2235
  58.       End
  59.    End
  60. End
  61. Attribute VB_Name = "mdiMHDock"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Option Explicit
  67. Private Sub MDIForm_Load()
  68.     frmMHDock.Show
  69. End Sub
  70.  
  71. Private Sub MHDock1_Moved(xDockPos As Single, yDockPos As Single)
  72.     Select Case xDockPos
  73.         Case 0: lblxDock.Caption = "Not docked"
  74.         Case 1: lblxDock.Caption = "Docked on the left"
  75.         Case 2: lblxDock.Caption = "Docked on the right"
  76.     End Select
  77.     Select Case yDockPos
  78.         Case 0: lblyDock.Caption = "Not docked"
  79.         Case 1: lblyDock.Caption = "Docked on the top"
  80.         Case 2: lblyDock.Caption = "Docked on the bottom"
  81.     End Select
  82. End Sub
  83.